home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-02-04 | 806 b |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Memotech MTX BASIC source (document/memotechMTXBASICSource)
| ext
| Unsupported |
| 1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
| 1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
| 1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
| 1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 22 03 00 00 0d 0a 27 20 | 53 68 61 64 65 0d 0a 27 |".....' |Shade..'|
|00000010| 20 43 72 65 61 74 65 20 | 61 20 32 20 70 69 78 65 | Create |a 2 pixe|
|00000020| 6c 20 73 68 61 64 65 20 | 6f 6e 20 78 2b 20 79 2d |l shade |on x+ y-|
|00000030| 0d 0a 20 0d 0a 27 20 49 | 6e 70 75 74 3a 09 31 0d |.. ..' I|nput:.1.|
|00000040| 0a 27 20 4f 75 74 70 75 | 74 3a 09 34 0d 0a 0d 0a |.' Outpu|t:.4....|
|00000050| 27 20 41 75 74 68 6f 72 | 3a 09 41 6e 64 72 65 61 |' Author|:.Andrea|
|00000060| 20 42 65 6e 6f 6e 69 09 | 09 09 20 72 65 76 3a 09 | Benoni.|.. rev:.|
|00000070| 31 2e 31 0d 0a 0d 0a 0d | 0a 73 74 72 69 6e 67 20 |1.1.....|.string |
|00000080| 20 20 20 09 69 6e 70 46 | 69 6c 65 2c 6f 75 74 46 | .inpF|ile,outF|
|00000090| 69 6c 65 0d 0a 44 65 76 | 43 6f 6e 09 49 62 6d 70 |ile..Dev|Con.Ibmp|
|000000a0| 2c 4f 62 6d 70 0d 0a 52 | 47 42 09 70 69 78 2c 70 |,Obmp..R|GB.pix,p|
|000000b0| 69 78 72 0d 0a 66 6c 6f | 61 74 20 20 09 78 2c 79 |ixr..flo|at .x,y|
|000000c0| 0d 0a 0d 0a 69 6e 70 46 | 69 6c 65 3d 22 54 65 73 |....inpF|ile="Tes|
|000000d0| 74 69 62 6e 2e 62 6d 70 | 22 0d 0a 6f 75 74 46 69 |tibn.bmp|"..outFi|
|000000e0| 6c 65 3d 22 54 65 73 74 | 6f 2e 62 6d 70 22 0d 0a |le="Test|o.bmp"..|
|000000f0| 0d 0a 49 62 6d 70 3d 4c | 6f 61 64 49 6d 61 67 65 |..Ibmp=L|oadImage|
|00000100| 28 69 6e 70 46 69 6c 65 | 29 0d 0a 4f 62 6d 70 3d |(inpFile|)..Obmp=|
|00000110| 43 72 65 61 74 65 49 6d | 61 67 65 28 49 62 6d 70 |CreateIm|age(Ibmp|
|00000120| 2e 57 69 64 74 68 2c 49 | 62 6d 70 2e 48 65 69 67 |.Width,I|bmp.Heig|
|00000130| 68 74 2c 34 29 0d 0a 0d | 0a 70 69 78 72 2e 52 65 |ht,4)...|.pixr.Re|
|00000140| 64 3d 31 39 32 0d 0a 53 | 65 74 50 61 6c 65 74 74 |d=192..S|etPalett|
|00000150| 65 28 4f 62 6d 70 2c 31 | 2c 70 69 78 72 29 0d 0a |e(Obmp,1|,pixr)..|
|00000160| 0d 0a 46 6f 72 20 79 3d | 30 20 74 6f 20 4f 62 6d |..For y=|0 to Obm|
|00000170| 70 2e 48 65 69 67 68 74 | 2d 31 0d 0a 20 20 20 44 |p.Height|-1.. D|
|00000180| 73 70 57 68 69 6c 65 28 | 22 53 68 61 64 69 6e 67 |spWhile(|"Shading|
|00000190| 22 2c 31 30 30 2f 4f 62 | 6d 70 2e 48 65 69 67 68 |",100/Ob|mp.Heigh|
|000001a0| 74 2a 79 29 0d 0a 20 20 | 20 46 6f 72 20 78 3d 30 |t*y).. | For x=0|
|000001b0| 20 74 6f 20 4f 62 6d 70 | 2e 57 69 64 74 68 2d 31 | to Obmp|.Width-1|
|000001c0| 0d 0a 20 20 20 20 20 20 | 70 69 78 3d 47 65 74 50 |.. |pix=GetP|
|000001d0| 69 78 65 6c 28 49 62 6d | 70 2c 78 2c 79 29 0d 0a |ixel(Ibm|p,x,y)..|
|000001e0| 20 20 20 20 20 20 69 66 | 28 70 69 78 2e 4c 75 6d | if|(pix.Lum|
|000001f0| 3d 30 29 0d 0a 20 20 20 | 20 20 20 20 20 20 70 69 |=0).. | pi|
|00000200| 78 3d 47 65 74 50 69 78 | 65 6c 28 4f 62 6d 70 2c |x=GetPix|el(Obmp,|
|00000210| 78 2b 32 2c 79 2d 32 29 | 0d 0a 20 20 20 20 20 20 |x+2,y-2)|.. |
|00000220| 20 20 20 69 66 28 70 69 | 78 2e 4c 75 6d 29 0d 0a | if(pi|x.Lum)..|
|00000230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 65 74 | | Set|
|00000240| 50 69 78 65 6c 28 4f 62 | 6d 70 2c 78 2b 32 2c 79 |Pixel(Ob|mp,x+2,y|
|00000250| 2d 32 2c 70 69 78 72 29 | 0d 0a 20 20 20 20 20 20 |-2,pixr)|.. |
|00000260| 20 20 20 65 6e 64 69 66 | 0d 0a 20 20 20 20 20 20 | endif|.. |
|00000270| 65 6c 73 65 0d 0a 20 20 | 20 20 20 20 20 20 20 53 |else.. | S|
|00000280| 65 74 50 69 78 65 6c 28 | 4f 62 6d 70 2c 78 2c 79 |etPixel(|Obmp,x,y|
|00000290| 2c 70 69 78 29 0d 0a 20 | 20 20 20 20 20 65 6e 64 |,pix).. | end|
|000002a0| 69 66 0d 0a 20 20 20 4e | 65 78 74 20 78 0d 0a 4e |if.. N|ext x..N|
|000002b0| 65 78 74 20 79 0d 0a 0d | 0a 44 73 70 57 68 69 6c |ext y...|.DspWhil|
|000002c0| 65 28 22 22 2c 30 29 0d | 0a 53 61 76 65 49 6d 61 |e("",0).|.SaveIma|
|000002d0| 67 65 28 4f 62 6d 70 2c | 6f 75 74 46 69 6c 65 29 |ge(Obmp,|outFile)|
|000002e0| 0d 0a 50 72 65 76 69 65 | 77 28 4f 62 6d 70 2c 22 |..Previe|w(Obmp,"|
|000002f0| 4f 75 74 70 75 74 22 2c | 35 2c 35 2c 4f 62 6d 70 |Output",|5,5,Obmp|
|00000300| 2e 57 69 64 74 68 2b 36 | 2c 4f 62 6d 70 2e 48 65 |.Width+6|,Obmp.He|
|00000310| 69 67 68 74 2b 33 30 29 | 0d 0a 44 73 70 4d 65 73 |ight+30)|..DspMes|
|00000320| 28 22 4f 6b 22 29 | |("Ok") | |
+--------+-------------------------+-------------------------+--------+--------+
